home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcmag / vol8n08.arc / MOUSECTL.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-03-02  |  9.0 KB  |  123 lines
  1. 100 REM - BASIC PROGRAM TO CREATE B:MOUSECTL.COM
  2. 110 CLS:PRINT "Creating B:MOUSECTL.COM ": OPEN "B:MOUSECTL.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   104
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   104 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "B:MOUSECTL.COMreated successfully": SYSTEM
  17. 260 PRINT: PRINT "B:MOUSECTL.COMs not valid!": END
  18. 270 DATA E9, E0,  4,  D, 20, 20, 20,  D,  A, 4D, 4F, 55, 53, 45, 43, 54,   471
  19. 280 DATA 4C, 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 38, 20, 5A,   323
  20. 290 DATA 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F,   63D
  21. 300 DATA 6E, 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A,   49B
  22. 310 DATA 69, 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E,   5C5
  23. 320 DATA 20, 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  A, 24, 1A,  0,  0,  0,   342
  24. 330 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  25. 340 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  26. 350 DATA  0,  0,  0,  0,  8,  0, 10,  0,  3,  0,  5,  0,  7,  0,  9,  0,    30
  27. 360 DATA  C,  0, 17,  0, 20,  0,  5,  0,  6,  0,  A,  0,  F,  0, 16,  0,    7D
  28. 370 DATA 1E,  0, 32,  0, 46,  0,  B, C0, 75, 37, E8, F3,  0, 50, 53, 51,   4DC
  29. 380 DATA 52, E8, C7,  0, 2E, C7,  6, 84,  1,  8,  0, 2E, C7,  6, 86,  1,   50B
  30. 390 DATA 10,  0, B9, FF, 7F, 8B, D1, B8,  F,  0, E8, D3,  0, BA, 10, 27,   716
  31. 400 DATA B8, 13,  0, E8, CA,  0, B9,  1,  0, E8, B2,  0, 5A, 59, 5B, 58,   637
  32. 410 DATA CF, 3D,  B,  0, 75, 2B, E8, B7,  0, FA, 2E, 8B,  E, 6E,  1, 2E,   5B4
  33. 420 DATA 8B, 16, 70,  1, 2E, C7,  6, 6A,  1,  0,  0, 2E, C7,  6, 6C,  1,   3E0
  34. 430 DATA  0,  0, 2E, C7,  6, 6E,  1,  0,  0, 2E, C7,  6, 70,  1,  0,  0,   2D6
  35. 440 DATA CF, 3D,  C,  0, 75, 18, 2E, 89,  E, 7E,  1, 2E, 89, 16, 80,  1,   437
  36. 450 DATA 2E, 8C,  6, 82,  1, 51, 83, C9,  1, E8, 62,  0, 59, CF, 3D,  F,   59F
  37. 460 DATA  0, 75,  B, 2E, 89,  E, 84,  1, 2E, 89, 16, 86,  1, CF, 3D, 14,   43E
  38. 470 DATA  0, 75, 28, 2E, FF, 36, 7E,  1, 2E, FF, 36, 80,  1, 2E, FF, 36,   5C6
  39. 480 DATA 82,  1, 2E, 89,  E, 7E,  1, 2E, 89, 16, 80,  1, 2E, 89, 1E, 82,   46C
  40. 490 DATA  1, 83, C9,  1, E8, 27,  0, 5B, 5A, 59, CF, 3D, 13,  0, 74,  A,   508
  41. 500 DATA 3D, 1A,  0, 74,  5, 2E, FF, 2E, 5D,  1, CF, 57,  6,  E,  7, 33,   3FD
  42. 510 DATA C0, BF, 6A,  1, B9,  D,  0, FC, FA, F3, AB,  7, 5F, C3, 50, 52,   80F
  43. 520 DATA  6,  E,  7, BA,  7,  3, B8,  C,  0, E8,  4,  0,  7, 5A, 58, C3,   40B
  44. 530 DATA 9C, FA, 2E, FF, 1E, 5D,  1, C3,  A, E4, 74,  A, 80, FC, 11, 73,   76E
  45. 540 DATA  5, 2E, FF, 2E, 61,  1, 9C, 2E, FF, 1E, 61,  1, E8,  1,  0, CF,   5C3
  46. 550 DATA 50, 1E, B8, 40,  0, 8E, D8, A0, 49,  0,  E, 1F, B4,  0, C7,  6,   563
  47. 560 DATA 66,  1, 10,  0, 3C,  1, 76, 28, C7,  6, 66,  1,  8,  0, 3C,  3,   2CD
  48. 570 DATA 76, 1E, 3C,  7, 74, 1A, B4,  1, C7,  6, 68,  1,  1,  0, 3C,  5,   392
  49. 580 DATA 76,  E, 3C,  D, 74,  A, 3C, 13, 74,  6, C7,  6, 68,  1,  0,  0,   34A
  50. 590 DATA 88, 26, 65,  1, 1F, 58, C3, 50, 53, 52, 57, 8B, E9,  E, 1F,  E,   549
  51. 600 DATA  7, FC, A1, 6A,  1, 89, 36, 6A,  1, 2B, F0, 74, 51, A1, 72,  1,   62D
  52. 610 DATA E8, B8,  0,  1,  6, 6E,  1, 89, 16, 72,  1, B9,  8,  0, F7, E9,   5C9
  53. 620 DATA 8B, 36, 76,  1, 8B,  E, 84,  1, E8, C8,  0, 89, 16, 76,  1, 80,   59C
  54. 630 DATA 3E, 65,  1,  1, 75, 13, 3D,  0,  0, 74, 23, 8B,  E, 68,  1, 7F,   382
  55. 640 DATA  2, F7, D9,  3, C1,  3, E8, EB, 15,  3,  6, 7A,  1, 99, 8B, F0,   719
  56. 650 DATA 8B,  E, 66,  1, F7, F9, 89, 16, 7A,  1, 2B, F2,  3, EE, 5E, 5B,   6D1
  57. 660 DATA A1, 6C,  1, 89, 36, 6C,  1, 2B, F0, 74, 41, A1, 74,  1, E8, 5A,   662
  58. 670 DATA  0,  1,  6, 70,  1, 89, 16, 74,  1, B9,  8,  0, F7, E9, 8B, 36,   4EE
  59. 680 DATA 78,  1, 8B,  E, 86,  1, E8, 6A,  0, 89, 16, 78,  1, 80, 3E, 65,   526
  60. 690 DATA  1,  1, 75,  4,  3, D8, EB, 14,  3,  6, 7C,  1, 99, 8B, F0, B9,   5A8
  61. 700 DATA  8,  0, F7, F9, 89, 16, 7C,  1, 2B, F2,  3, DE, 8B, CD, 8B, D3,   7C8
  62. 710 DATA B8,  4,  0, E8, DA, FE, 5B, 58, 85,  6, 7E,  1, 74,  C, 8B, 36,   67A
  63. 720 DATA 6E,  1, 8B, 3E, 70,  1, FF, 1E, 80,  1, CB, 9C, 79,  2, F7, DE,   6FE
  64. 730 DATA 96, B9,  7,  0, BF, 88,  1, AF, 72,  2, E2, FB, 9D, 79,  2, F7,   7AD
  65. 740 DATA D8, BF, A4,  1, D1, E1, 2B, F9, 8B,  D, F7, E9, B9,  A,  0, E8,   935
  66. 750 DATA  1,  0, C3, 96, 8B, FA, 99,  3, C6, 13, D7, F7, F9, C3, 53, 79,   8AA
  67. 760 DATA 6E, 74, 61, 78, 3A, 20, 20, 4D, 4F, 55, 53, 45, 43, 54, 4C, 20,   4C1
  68. 770 DATA 5B, 6E, 20, 2E, 2E, 2E, 20, 6E, 20, 7C, 20, 66, 69, 6C, 65, 6E,   4CB
  69. 780 DATA 61, 6D, 65, 20, 7C, 20, 2F, 55, 5D,  D,  A, 6E, 20, 3D, 20, 75,   447
  70. 790 DATA 70, 20, 74, 6F, 20, 38, 20, 6D, 6F, 75, 73, 65, 20, 6D, 75, 6C,   582
  71. 800 DATA 74, 69, 70, 6C, 69, 65, 72, 73, 20, 77, 69, 74, 68, 20, 76, 61,   63F
  72. 810 DATA 6C, 75, 65, 73, 20, 62, 65, 74, 77, 65, 65, 6E, 20, 30, 2D, 33,   573
  73. 820 DATA 32, 37, 36, 37,  D,  A, 64, 65, 66, 61, 75, 6C, 74, 73, 20, 3D,   4A2
  74. 830 DATA 20, 35, 2C, 36, 2C, 31, 30, 2C, 31, 35, 2C, 32, 32, 2C, 33, 30,   2F5
  75. 840 DATA 2C, 35, 30, 2C, 37, 30,  D,  A, 49, 6D, 70, 6C, 69, 65, 64, 20,   41F
  76. 850 DATA 64, 65, 63, 69, 6D, 61, 6C, 20, 69, 6E, 20, 76, 61, 6C, 75, 65,   603
  77. 860 DATA 73, 3B, 20, 69, 65, 2E, 20, 35, 20, 3D, 20, 30, 2E, 35, 2C, 20,   37B
  78. 870 DATA 31, 38, 20, 3D, 20, 31, 2E, 38,  D,  A, 66, 69, 6C, 65, 6E, 61,   403
  79. 880 DATA 6D, 65, 20, 3D, 20, 66, 69, 6C, 65, 20, 77, 69, 74, 68, 20, 6D,   558
  80. 890 DATA 75, 6C, 74, 69, 70, 6C, 69, 65, 72, 20, 76, 61, 6C, 75, 65, 73,   68A
  81. 900 DATA  D,  A, 2F, 55, 20, 3D, 20, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C,   4D2
  82. 910 DATA  D,  A,  A, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 75, 67, 68, 20, 6D,   4A9
  83. 920 DATA 65, 6D, 6F, 72, 79,  D,  A, 24, 46, 69, 6C, 65, 20, 6E, 6F, 74,   558
  84. 930 DATA 20, 66, 6F, 75, 6E, 64,  D,  A, 24, 4D, 6F, 75, 73, 65, 20, 64,   504
  85. 940 DATA 72, 69, 76, 65, 72, 20, 6E, 6F, 74, 20, 69, 6E, 73, 74, 61, 6C,   644
  86. 950 DATA 6C, 65, 64, 20, 73, 6F, 20, 4D, 4F, 55, 53, 45, 43, 54, 4C, 20,   4E3
  87. 960 DATA 6E, 6F, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,  D,  A, 24,   56C
  88. 970 DATA 4D, 4F, 55, 53, 45, 43, 54, 4C, 20, 63, 61, 6E, 27, 74, 20, 62,   4DB
  89. 980 DATA 65, 20, 75, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,  D,  A, 55,   594
  90. 990 DATA 6E, 69, 6E, 73, 74, 61, 6C, 6C, 20, 72, 65, 73, 69, 64, 65, 6E,   66F
  91. 1000 DATA 74, 20, 70, 72, 6F, 67, 72, 61, 6D, 73, 20, 69, 6E, 20, 72, 65,   5ED
  92. 1010 DATA 76, 65, 72, 73, 65, 20, 6F, 72, 64, 65, 72,  D,  A, 24, 4D, 65,   54E
  93. 1020 DATA 6D, 6F, 72, 79, 20, 61, 6C, 6C, 6F, 63, 61, 74, 69, 6F, 6E, 20,   62D
  94. 1030 DATA 65, 72, 72, 6F, 72,  D,  A,  7, 24, 49, 6E, 73, 74, 61, 6C, 6C,   543
  95. 1040 DATA 65, 64,  D,  A, 24, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,   587
  96. 1050 DATA  D,  A, 24, FC, BB,  0,  1, F6, 17, 33, D2, 8C, C8, 42, 8E, C2,   6EB
  97. 1060 DATA 3B, D0, 74,  B, 8B, F3, 8B, FB, B9, 10,  0, F3, A6, 75, EE, BA,   90D
  98. 1070 DATA  3,  1, E8, 69,  1, BA,  E,  4, E8, 63,  1, BE, 81,  0, AC, 3C,   595
  99. 1080 DATA  D, 74, 67, 3C, 2F, 75, 12, AC, 4E, 24, 5F, 3C, 55, 75, EF, E8,   634
  100. 1090 DATA 2B,  1, BA, 47,  5, 74, 5C, EB, 63, 3C, 39, 77,  7, 3C, 30, 72,   521
  101. 1100 DATA  3, 4E, EB, 30, 3C, 20, 76, D6, 56, AC, 3C, 20, 77, FB, C6, 44,   6EE
  102. 1110 DATA FF,  0, 5A, 4A, B8,  0, 3D, CD, 21, BA, 18,  5, 72, 35, 8B, D8,   667
  103. 1120 DATA BA, 73,  7, B9, 64,  0, B4, 3F, CD, 21, B4, 3E, CD, 21, 8B, F2,   78F
  104. 1130 DATA C6, 44, 64,  D, BF, 96,  1, B9,  8,  0, AC, 3C,  D, 74,  B, 3C,   542
  105. 1140 DATA 30, 72, F7, 4E, E8, DD,  0, AB, E2, F0, E8, D0,  0, 74, 6F,  A,   8CE
  106. 1150 DATA C0, EB,  5, E8, E8,  0, B0,  1, B4, 4C, CD, 21, 8C, C1, B8, 33,   857
  107. 1160 DATA 35, CD, 21, 81, FB, A6,  1, 75, 4E, 8C, C3, 3B, D9, 75, 48, B8,   7E1
  108. 1170 DATA 10, 35, CD, 21, 81, FB, A8,  2, 75, 3D, 8C, C3, 3B, D9, 75, 37,   71A
  109. 1180 DATA B4, 49, CD, 21, BA, AE,  5, 72, CA, 26, 8B, 16, 5D,  1, 26, 8E,   66D
  110. 1190 DATA 1E, 5F,  1, B8, 33, 25, CD, 21, 26, 8B, 16, 61,  1, 26, 8E, 1E,   477
  111. 1200 DATA 63,  1, B8, 10, 25, CD, 21, 33, C0, CD, 33,  E, 1F, BA, D5,  5,   5F3
  112. 1210 DATA E8, 8B,  0, 32, C0, EB, A1, 8E, C1, BA, 60,  5, EB, 95, B8, 33,   8CA
  113. 1220 DATA 35, CD, 21, 8C, C0,  B, C0, BA, 29,  5, 74, 87, 26, 8A,  7, 3C,   610
  114. 1230 DATA CF, 74, 80, 89, 1E, 5D,  1, 8C,  6, 5F,  1, BA, A6,  1, B8, 33,   606
  115. 1240 DATA 25, CD, 21, 33, C0, CD, 33, E8, A6, FB, B8, 10, 35, CD, 21, 89,   803
  116. 1250 DATA 1E, 61,  1, 8C,  6, 63,  1, BA, A8,  2, B8, 10, 25, CD, 21, A1,   556
  117. 1260 DATA 2C,  0, 8E, C0, B4, 49, CD, 21, BA, C9,  5, E8, 30,  0, BA,  E,   6CD
  118. 1270 DATA  4, 83, C2,  F, B1,  4, D3, EA, B8,  0, 31, CD, 21, 8C, C0, 8C,   779
  119. 1280 DATA CB, 3B, C3, C3, 33, DB, AC, 2C, 30, 72,  F, 3C,  9, 77,  B, 98,   682
  120. 1290 DATA 93, BA,  A,  0, F7, E2,  3, D8, EB, EC, 8B, C3, 4E, C3, B4,  9,   8FE
  121. 1300 DATA CD, 21, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   1B1
  122. 1310 DATA 145882
  123.